home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Graphics / Graphic Demos / Ising Dynamics / IsingGraf.R < prev    next >
Encoding:
Text File  |  1987-04-19  |  1.9 KB  |  165 lines  |  [TEXT/ttxt]
  1. IsingGraf.Rsrc
  2.  
  3. Type TEST = STR 
  4.   ,0
  5. IsingGraf Version 0.1
  6.  
  7. Type MENU
  8.   ,128
  9. *** the apple symbol ***
  10.   \14
  11.     About IsingGraf
  12.     (-
  13.  
  14. Type MENU
  15.   ,129
  16.   File
  17.     Quit
  18.  
  19. Type MENU
  20.   ,130
  21.   Edit
  22.     (Undo/Z
  23.     (-
  24.     Cut/X
  25.     Copy/C
  26.     Paste/V
  27.     Clear
  28.     (-
  29.     Copy Special
  30.  
  31. Type MENU
  32.   ,131
  33.   Control
  34.     New Field Size/F
  35.     New Temperature/T
  36.     (-
  37.     Display Averages/A
  38.     Don't Display Averages/N
  39.     Reset Averages/S
  40.     (-
  41.     Speed
  42.  
  43. Type MENU
  44.   ,132
  45.   Setup
  46.     Random Field/R
  47.     Checkerboard/C
  48.     Interface/I
  49.     Spot Field
  50.     Ring Field
  51.     X Field
  52.     Lined Field
  53.     B Field
  54.  
  55. Type WIND
  56.   ,128
  57.   IsingGraf
  58.   40 5 337 507
  59.   Visible NoGoAway
  60.   4
  61.   0
  62.  
  63. Type DITL
  64.   ,257 (32)
  65.   4
  66.  
  67.     BtnItem Enabled
  68.     12 300 32 370
  69. OK
  70.  
  71.     BtnItem Enabled
  72.     42 300 62 370
  73. Cancel
  74.  
  75.     StatText Disabled
  76.     12 10 27 250
  77. Enter a number of rows/columns:
  78.  
  79.     EditText Disabled
  80.     40 10 55 250
  81.  
  82.  
  83. Type DITL
  84.   ,258 (32)
  85.   4
  86.  
  87.     BtnItem Enabled
  88.     12 300 32 370
  89. OK
  90.  
  91.     BtnItem Enabled
  92.     42 300 62 370
  93. Cancel
  94.  
  95.     StatText Disabled
  96.     12 10 27 250
  97. Enter the new temperature:
  98.  
  99.     EditText Disabled
  100.     40 10 55 250
  101.  
  102. Type DITL
  103.   ,259 (32)
  104.   2
  105.  
  106.     BtnItem Enabled
  107.     12 300 32 370
  108. OK
  109.  
  110.     StatText Disabled
  111.     12 10 122 250
  112. To change the speed of the program, type a digit between 0 and 9 anytime the program is running.
  113.  
  114. Type DITL
  115.   ,260 (32)
  116.   2
  117.  
  118.     BtnItem Enabled
  119.     12 300 32 370
  120. OK
  121.  
  122.     StatText Disabled
  123.     12 10 182 250
  124. IsingGraf by Theodore W. Gray, a program to simulate the 2 dimensional Ising Model.  This program is in the public domain.
  125.  
  126. Type DLOG
  127. * get new size dialog
  128.   ,257 (32)
  129.   Message
  130.   40 66 160 446
  131.   Visible NoGoAway
  132.   1
  133.   0
  134.   257
  135.  
  136. Type DLOG
  137. * get new temperature dialog
  138.   ,258 (32)
  139.   Message
  140.   40 66 160 446
  141.   Visible  NoGoAway 
  142.   1
  143.   0
  144.   258
  145.  
  146. Type DLOG
  147. * speed dialog
  148.   ,259 (32)
  149.   Message
  150.   40 66 180 446
  151.   Visible  NoGoAway 
  152.   1
  153.   0
  154.   259
  155.  
  156. Type DLOG
  157. * speed dialog
  158.   ,260 (32)
  159.   Message
  160.   40 66 240 446
  161.   Visible  NoGoAway 
  162.   1
  163.   0
  164.   260
  165.